home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)t3.d64
/
heading.l
< prev
next >
Wrap
Text File
|
2007-02-28
|
571b
|
31 lines
9000 FUNC HEADING CLOSED
9010 A:=PEEK(27277); B:=PEEK(27278)
9020 CASE A OF
9030 WHEN 0
9040 RETURN 90
9050 WHEN 129
9060 RETURN 89
9070 WHEN 130
9080 RETURN 88-(B DIV 64)
9090 WHEN 131
9100 RETURN 86-(B DIV 32)
9110 WHEN 132
9120 RETURN 82-(B DIV 16)
9130 WHEN 133
9140 RETURN 74-(B DIV 8)
9150 WHEN 134
9160 RETURN 58-(B DIV 4)
9170 WHEN 135
9180 IF B<53 THEN
9190 RETURN 26-(B DIV 2)
9200 ELSE
9210 RETURN 386-(B DIV 2)
9220 ENDIF
9230 WHEN 136
9240 RETURN 322-B
9250 WHEN 137
9260 RETURN (194-(B*2))-(PEEK(27279) DIV 128)
9270 ENDCASE
9280 ENDFUNC HEADING
9290 //